home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / vuguage / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-07  |  1.9 KB  |  71 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1710
  6.    ClientTop       =   1530
  7.    ClientWidth     =   6690
  8.    Height          =   4545
  9.    Left            =   1650
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4140
  12.    ScaleWidth      =   6690
  13.    Top             =   1185
  14.    Width           =   6810
  15.    Begin VB.HScrollBar HScroll1 
  16.       Height          =   255
  17.       Left            =   480
  18.       Max             =   100
  19.       TabIndex        =   1
  20.       Top             =   2040
  21.       Value           =   50
  22.       Width           =   1695
  23.    End
  24.    Begin VuguageLib.Vuguage Vuguage1 
  25.       Height          =   1575
  26.       Left            =   480
  27.       TabIndex        =   0
  28.       Top             =   360
  29.       Width           =   1575
  30.       _version        =   65536
  31.       _extentx        =   2778
  32.       _extenty        =   2778
  33.       _stockprops     =   1
  34.       bordercolor     =   0
  35.       min             =   0
  36.       max             =   100
  37.       pos             =   50
  38.       outerbevel      =   1
  39.       innerbevel      =   0
  40.       outerbevelwidth =   4
  41.       innerbevelwidth =   3
  42.       borderwidth     =   3
  43.       shadowcolor     =   8421504
  44.       hilitecolor     =   16777215
  45.       highalarmcolor  =   255
  46.       lowalarmcolor   =   65280
  47.       highalarm       =   75
  48.       lowalarm        =   15
  49.       orientation     =   3
  50.       facecolor       =   12632256
  51.       tickmarks       =   5
  52.       tickcolor       =   0
  53.    End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_Creatable = False
  56. Attribute VB_Exposed = False
  57. Private Sub HScroll1_Change()
  58. Vuguage1.Pos = HScroll1.Value
  59. End Sub
  60. Private Sub HScroll1_Scroll()
  61. Vuguage1.Pos = HScroll1.Value
  62. End Sub
  63. Private Sub Vuguage1_Alarm(Alarm As Integer)
  64. If Alarm = 1 Then
  65. MsgBox "Low Alarm"
  66. End If
  67. If Alarm = 2 Then
  68. MsgBox "High Alarm"
  69. End If
  70. End Sub
  71.